home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aad.d64 / promal-ahls.s < prev    next >
Text File  |  2007-02-28  |  505b  |  38 lines
  1. program ahls
  2. ;
  3. include library
  4. include realfuncs
  5. word n
  6. word i
  7. word prtr
  8. real a
  9. real r
  10. real s
  11. real acc
  12. real ran
  13. ;
  14. begin
  15. put " Running........",cr
  16. r=0
  17. s=0
  18. prtr=open("p",'w')
  19. for n=1 to 100
  20.   a=n
  21.   for i=1 to 10
  22.     a=sqrt(a)
  23.     r=r+random/65535.
  24.   for i=1 to 10
  25.     a=power(a,2.0)
  26.     r=r+random/65535.
  27.   s=s+a
  28. put " Finished!",cr
  29. acc=abs(1010.-s/5)
  30. ran=abs(1000.-r)
  31. output "#cAccuracy=#10e",acc
  32. output "#cRandom  =#10e",ran
  33. outputf prtr,"#cAccuracy=#10e#c",acc
  34. outputf prtr,"#cRandom  =#10e#c",ran
  35. end
  36.  
  37.  
  38.